MacFormat 1997 April/macformat-049.iso/mac/Shareware Plus/Developers/dropg++/usr/include/scripts/xps

Text File | 1997-02-20 | 500 b | 33 lines | [TEXT/R*ch]

# xps
# kernel ps
#
#    @(#)xps    8.2 (Berkeley) 9/26/93

define xps

    set $i = 0

    while ($i < 2)

        if ($i == 0)
            set $p = allproc
        end
        if ($i == 1)
            set $p = zombproc
        end

        printf "      proc   pid      flag st      wchan comm\n"
        while ($p)
            printf "%#10x %5d %8x  %2x %#10x %s", $p, $p->p_pid, \
                $p->p_flag, $p->p_stat, $p->p_wchan, \
                (char *) $p->p_comm
            if ($p->p_wmesg)
                printf " (%s)", $p->p_wmesg
            end
            printf "\n"
            set $p = $p->p_next
        end
        set $i++
    end
end